home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Tools&Utilities / Extended Calculator 2.01 / Calculator programs / Simple Mirror Drawer < prev   
Text File  |  1994-01-25  |  228b  |  14 lines

  1. a:=HMouse;
  2. b:=VMouse;
  3. while(not(button));
  4.     PPat(random(1,5));
  5.     x:=HMouse;
  6.     y:=VMouse;
  7.     line(a,b,x,y);
  8.     line(600-a,b,600-x,y);
  9.     line(a,300-b,x,300-y);
  10.     line(600-a,300-b,600-x,300-y);
  11.     a:=x;
  12.     b:=y;
  13. end;
  14.